Error in Code

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Error in Code

Hi, I have declared rtitem As NotesRichTextItem
and now the error is "Type Mismatch". As Mr.Helmut said, hope "Full Path" may not be notesrichtext item. Dont know how to modify this.

Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim filesys,FullPath,OUName,FileName,Path
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim Object As NotesEmbeddedObject
Dim rtitem As NotesRichTextItem

Set uidoc = ws.CurrentDocument
OUName = uidoc.FieldGetText( "OUName" )
FileName = uidoc.FieldGetText( "FileName" )

Set doc = uidoc.document
Dim FullPath1 As variant
'FullPath1 = doc.Getitemvalue("FullPath")
'FullPath = FullPath1(0)
Set rtitem = doc.GetFirstItem("FullPath")
Set Object = rtitem.EmbedObject(EMBED_ATTACHMENT,"",FileName & doc.OUName(0) & ".id")
'Set object = nitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\ID's\" & doc.EMP_ID(0) & ".id" )
Call doc.Save(True,True)

Feedback response number WEBB94WDDW created by ~Howard Nimnukonygon on 02/14/2013